home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #1 / Amiga Plus 1999 #1.iso / System-Boost / Sound / trsi-sam / disk1 / HD-Install < prev    next >
Text File  |  1998-06-17  |  3KB  |  116 lines
  1.  
  2. ; S.A.M. Installation-Script
  3. ; by André & Frank Hugenroth
  4. ; 1995 Brainstorm Software
  5.  
  6. (set sam1 "S.A.M. Disk 1")
  7. (set sam2 "S.A.M. Disk 2")
  8. (set disk1 (cat sam1 ":"))
  9. (set disk2 (cat sam2 ":"))
  10. (procedure copy_dir
  11.     (copyfiles
  12.         (source (tackon quelle @each-name))
  13.         (dest (tackon name ziel))
  14.         (help @copyfiles-help)
  15.         (all)
  16.     )
  17. )
  18. (set name
  19.  (askdir (prompt "Choose a directory for the SAM-drawer")
  20.          (help "I need the path to create the SAM-drawer !")
  21.          (default @default-dest)
  22.  )
  23. )
  24. (if (< (getdiskspace name) 1760000)
  25.     (abort    "There is not enough free diskspace ! "
  26.             "You need at least 1.7MB to install ! ")
  27. )
  28. (askdisk (prompt "Please insert Disk #1 of ´S.A.M.´ in any drive.")
  29.          (dest sam1)
  30.          (help "Please insert the required disk to install from disk.")
  31. )
  32. (set name (tackon name "SAM"))
  33. (makedir name
  34.     (infos)
  35. )
  36. (makedir (tackon name "Waves")
  37. )
  38. (makedir (tackon name "Sets")
  39. )
  40. (complete 0)
  41. (copyfiles
  42.     (prompt ("copying \"%s\" ..." @each-name))
  43.     (source (tackon disk1 "SAM"))
  44.     (dest name)
  45.     (help @copyfiles-help)
  46.     (infos)
  47. )
  48.  
  49. ; copy waves and sets of volume #1
  50.  
  51. (complete 5)
  52. (set quelle (tackon disk1 "waves/s"))
  53. (set ziel "waves") (copy_dir)
  54. (complete 10)
  55. (set quelle (tackon disk1 "waves/t"))
  56. (set ziel "waves") (copy_dir)
  57. (complete 15)
  58. (set quelle (tackon disk1 "waves/v"))
  59. (set ziel "waves") (copy_dir)
  60. (complete 20)
  61. (set quelle (tackon disk1 "waves/w"))
  62. (set ziel "waves") (copy_dir)
  63. (complete 25)
  64. (set quelle (tackon disk1 "sets"))
  65. (set ziel "sets") (copy_dir)
  66.  
  67. (askdisk (prompt "Please insert Disk #2 of ´S.A.M.´ in any drive.")
  68.          (dest sam2)
  69.          (help "Please insert the required disk to install from disk.")
  70. )
  71. (complete 30)
  72. (set quelle (tackon disk2 "waves/0"))
  73. (set ziel "waves") (copy_dir)
  74. (complete 35)
  75. (set quelle (tackon disk2 "waves/a"))
  76. (set ziel "waves") (copy_dir)
  77. (complete 40)
  78. (set quelle (tackon disk2 "waves/b"))
  79. (set ziel "waves") (copy_dir)
  80. (complete 45)
  81. (set quelle (tackon disk2 "waves/c"))
  82. (set ziel "waves") (copy_dir)
  83. (complete 50)
  84. (set quelle (tackon disk2 "waves/d"))
  85. (set ziel "waves") (copy_dir)
  86. (complete 55)
  87. (set quelle (tackon disk2 "waves/e"))
  88. (set ziel "waves") (copy_dir)
  89. (complete 60)
  90. (set quelle (tackon disk2 "waves/f"))
  91. (set ziel "waves") (copy_dir)
  92. (complete 65)
  93. (set quelle (tackon disk2 "waves/g"))
  94. (set ziel "waves") (copy_dir)
  95. (complete 70)
  96. (set quelle (tackon disk2 "waves/h"))
  97. (set ziel "waves") (copy_dir)
  98. (complete 75)
  99. (set quelle (tackon disk2 "waves/i"))
  100. (set ziel "waves") (copy_dir)
  101. (complete 80)
  102. (set quelle (tackon disk2 "waves/j-m"))
  103. (set ziel "waves") (copy_dir)
  104. (complete 85)
  105. (set quelle (tackon disk2 "waves/n-o"))
  106. (set ziel "waves") (copy_dir)
  107. (complete 90)
  108. (set quelle (tackon disk2 "waves/p"))
  109. (set ziel "waves") (copy_dir)
  110. (complete 95)
  111. (set quelle (tackon disk2 "waves/r"))
  112. (set ziel "waves") (copy_dir)
  113. (complete 100)
  114. (exit "... and now enjoy this great tool .. bye !")
  115.  
  116.